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EDTSLMOVE - MOVE and COPY Line-mode commands Jo~sen~ 138% 90:39:39 VAX-11 Bliss-32 ed be Pp 
14-Sep-1984 12:25: DISKSVMSMASTER: CEDT.SRCJLMOVE.BLI;1 
ZTITLE ‘EDTSLMOVE = MOVE and COPY Line-mode commands’ 
MODULE EDTSLMOVE ( ! MOVE and so Line-mode commands 
{DENT = 'v04-000' ! File: LMOVE.BLI Edit: $1S1021 


BEGIN 


Lee RRR AAAAA AAA A ARATE EA ARETE AAAS 


i COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE ~ y , THE TERMS OF SUCH LICENSE AND WITH THE 


* 

® 

*® 

® 

® 

® 

® 

® 

: ® 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
! * 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® 

* 

® 

® 

® 

® 

® 

® 


tt AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!t CORPORATION. 


pole folololololololololololololelololelolololqo) 


WANA AAAI IPI POPINPIPINPYINPIPINIDD 2 9 OOO MH OOOOOOOOO 


i® DIGITAL ASSUMES NO RESPONS . ITY FOR THE USE OR RELIABILITY OF ITS 


IBIL 
te SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SSSSSSSSSSSsssssssssssssssssssssssssss 
CNAME WN OOD NOUES WN HO OONAUES AN (OO ONOULS WN 


NOME WN (OC ODNOA UE WN SO ODNOAUE UN (“OD ONAUEWN HOO ODNOUES WN OOONOUSWH— 


1 

1 

1 

1 

1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
2 1 
2 1 
2 1 
2 1 
2 1 
2 0 1 
; ae 

* 
2 0 1 PITITIIILL LLL TLL LLL LLL LLL LLL LLL LLL LLL LLL LLL LLL LLL iLL) 
2 0 .. 3 
3 0 1 
3 0 1 !+¢ 
; : : FACILITY: EDT -- The DEC Standard Editor 
; ! ABSTRACT: 
; ; : : This module executes the Line mode MOVE and COPY commands. 
; si : ENVIRONMENT: Runs at any access mode - AST reentrant 
7 rk : : AUTHOR: Bob Kushlis, CREATION DATE: February 3, 1978 
2 One ! MODIFIED BY: 
4 0044 1 ! 1-001 - Original. DJS 30-JAN-81. This module was created by 
4 0045 1! extract ing the routine from the module EXEC.BLI. 
4 0046 1 ! 1-002 - Regularize headers. JBS 20-Mar-1 
4 0047 1 ! 1-005 = Use new message codes. J8S 04-Aug-1981 
4 048 1 ! 1-004 = Abort on control C. JBS 04-Jan-198 
4 049 1 ! 1-005 = Change size of move/copy counters. SMB 4 a ha 
2 050 1! 1- $ - rhenge DUP count to aB-bits. SMB 07-Feb-198 
051 1! 1- - Limit DUP count to 65535 or less. SMB 08-Feb-1982 

5 bes 1 ! 1-008 - Fix bug in return address for DUP range check. SMB 09-F p= 1982 
5 Ope 1 ! 1-009 = Set a flag if control C actually aborts something. JBS May-1982 
5 054 1 ! 1-010 - Correct a message error introduced by edit 1-009 § -May-1982 
5 055 1 | 1-011 = Check the status returned by EDTS$SCPY_LN. JBS 09-Jun-1982 
5 B26 1: Je \¢ - Stop working message before messages. =Jun-19 
5 057 1 ! 1-013 = Stop processing on bad select range. SMB 01-Jul-198 


B 4 
EDTSLMOVE EDTSLMOVE = MOVE and COPY Line=-mode commands 16-Sep-1984 00:52:59 VAX-11 Bliss-32 V4.0-74 P 2 
v04-000 12-80 8= 1382 99:39:39 VI OKSUMGMASTER CEDT SRCILMOVE .BLI:1 — (1) 


Use EDTSSFMT_CRLF instead of EDTSSOUT_FMTBUF. JBS 05-Jul-1982 

Make sure the screen is repainted if any Lines are changed. For 

compatibility with EDT version 2, don't ao through ‘Press return 

to continue’. JBS 06-Jul-1982 

Move edt$$tst_eob in Line. STS 22-Sep-1982 

Modify to use new 48 bit macro. STS 01-Oct-1982 

C doesnt need it. JBS 09-Oct-1982 


83 


Remove EDT$$G_SCR_CHGD, new screen update Log! 
Put code for édt$$rng_posfrst in Line, STS 11- 
Modify to use new compare macro. STS 20-Oct-19 
Modify control c checking. STS 01-Dec-19 
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= MOVE and COPY Line-mode commands 


clarations 


XSBTTL ‘Declarations’ 
TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 


EDTSSMOVCPY_CMD : NOVALUE; 


; INCLUDE FILES: 


REQUIRE ‘EDTSRC:EDTREQ'; 


i MACROS: 
} NONE 

EQUATED SYMBOLS: 
NONE 

OWN STORAGE: 

NONE 

EXTERNAL REFERENCES: 
: In the routine 


1fseo-t9ge 99:52:58 


! Process the MOVE and COPY commands 


32 Vv 
R:CE 


] 
Digi Page 3 
DT.SRCJLMOVE .BLI;1 (2) 
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EDT VE EDTSLMOVE = MOVE and COPY Line-mode commands 16-Sep-1984 00:52: VAX=11 Bliss-32 V4.0-74 Page s| 

Toa ebOS EDTSSMOVEPY _CMD - MOVE and COPY Line-mode comm 13280 8= 1382 99:39:33 PE EKSUMGMASTERSCEDT SRCTLMOVE -BLI:1 ’ (3) 

5 198 or } Z5BTTL ‘EDTSSMOVCPY_CMD = MOVE and COPY Line-mode commands’ | ; 
3 198 org 1 GLOBAL ROUTINE EDTSSMOVCPY_CMD ( ! MOVE and COPY Line-mode commands > 
: 10 677 1 T ! 1 = delete Lines as moved (0 = copy) : 
; 108 ore | ) : NOVALUE = : 
; 109 679 1 5 
; 110 680 1 !++ : 
3 My) 8 } : } FUNCTIONAL DESCRIPTION: | : 
3 118 06 3 1} Command processing for MOVE and COPY. First, find the destination : 
s 114 0684 1! range to make sure we can position there. Next process the source : 
s $35 983 1! renee. copying all the Lines to an intermediate buffer. Then position ; 
s 116 686 1! to the destination range again, and copy the senperery buffer the . 
s 117 0687 1! indicated number of times. If the command is MOVE then the DELETE parameter . 
: 118 ets : will be true, causing us to delete the source Lines as they are processed. ‘ 
F 131 Bee ! } FORMAL PARAMETERS: : 
3 1$¢ 009 : DELETE 1 = delete Lines (MOVE command) 0 = don't (COPY command) : 
: 126 0694 1 ! IMPLICIT INPUTS: : 
$ \$3 0695 1! ; 
: 126 0696 1! EDTS$A_CUR_BUF : 
s ter 0697 1! DTS$A_ N : 
: 128 0698 1! EDTSSA_EXE_CURCMD : 
3 4 0699 1! EDTS$G_EXE_QRYQUIT : 
; 130 0700 1! EDTS$$G_EXE_SBITS . 
3; «131 0701 1! EDTS$$Z2_EXE_SBLK ; 
3 135 $4 1! ; 
5 % 0705 1 ! IMPLICIT OUTPUTS: : 
: «134 0704 1! ‘ 
s 6435 0705 1! EDT$$G_CC_DONE ° 
; «4136 0706 1! : 
; 137 0707 1 ! ROUTINE VALUE: : 
; 138 0708 1! : 
: 139 0709 1! NONE ‘ 
: 140 0710 1! : 
3: «6141 0711 1 =! SIDE EFFECTS: : 
3 if gris 1! ‘ 
:; (14 0715 1! NONE ‘ 
: «144 0714 1! ‘ 
; 145 0715 1 !-- ‘ 
3; 146 0716 1 ‘ 
3 1467 0717 BEGIN : 
3; 148 0718 ¢ 
; «41469 0719 exten, ROUTINE ° 
; 150 720 EDTSSSTOP_WKINGMSG, | . 
3s 151 721 EDTSSFMT_STRCNT : NOVALUE, ; } | ° 
: 13¢ 7 § EDTSSFMT_CRLF, ! Terminate an output Line ; 
: 3 7 EDTSSFMT_MSG, ° 
; «61546 724 EDTSSFMT STR, ° 
s 135 725 EDTSSPROC_OQRYOQAL, : 
3 136 7 $ EDTSSNXT_CNRNG, ° 
, 35 7 EDTSSRNG_REPOS, ° 
; «4158 7 3 EDTSSCPY_LN, ° 
3; 6159 7 EDTSSEND_CPY, ‘ 
; 160 0730 EDTSSLOC_LN, ° 


65 

6 '+ 

e : Save the current position for future restoration. 
7 

7 
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MOVE EDTSLMOVE = MOVE and COPY Line-mode commands 16-5 Sep-1984 VAX-11 Bliss-32 V4.0-74 Page 5 
vet EDTSSMOVEPY_CAD = MOVE and COPY Line-mode comm 14-Sep 71382 99: 3¢: 3 DISKSVMSMASTER: CeoT. SRC JLMOVE.BLI;1 ° (3). 
161 731 EDTSSNEW_BUF, 
16¢ 7 ; EDTSSRD -CURLN, 
16 7 EDTSSR TLN, 
164 734 EDTSS START CPY, 
165 735 EDTSSTOP_BOF, 
168 f § EDTSScH K-CC; ! Check for a control C having been typed 
189 59 aere eT ESG_EXT_MO ; in EXT mod 
€ ! Are we in EXT mode 
190 740 EDTSSL-LNOO : LN_ » 
171 741 EDTSSL_LNO_ ZERO : LN BLOCK, 
176 rs EDT StAcuk CUR -BUF : REF POS BLOCK, 
17 74 EDTSSA_wWk_CN REF LIN_BCOCK, 
174 744 EDTSSA “AE. CURCHD REF NODE_BLOCK, ! Pointer to the current command. 
175 745 EDTS$G_EXE duit, ! Quit flag for /QUERY operations. 
178 bg EDTS$G_ “RNG_F RSTL 
17 74 EDT$$2—RNG~ pies POS_BLOCK, 
178 748 EDTS$G_EXE_SBITS, ' The options switches. | 
179 749 EDTS$Z_EXE- pl REF NODE_BLOCK, ! The option switch value block. 
180 750 EDTS$G_CC ! Set to 1 if control C actually aborts something 
131 ie} EDTS$$2_E06_ LN; 
188 738 MESSAGES ((DSTMOVCOP, BADRANGE, INSMEM)); 
185 755 LOCAL 
186 756 NLINES : us BLOCK ' Number of Lines copied. 
187 757 DEST LINE : LN_BLOCK, i Line number of the destination. 
188 758 S_TBCB, ! Address of TBCB for the source. 
189 759 DT ' Address of TBCB for the destination. 
190 760 NOM_COPIES : LN_BLOCK, ' Number of times to copy it. 
191 761 START_POS : POS-BLOCK, ! The start position. 
198 6 TEMP = TBCB_BLOCK, ' Temporary buffer TBCB. 
19 76 COPY_COUNTER : LN.BLOCK, ! Number of copies made 
| 64 CONTROL_C; ! 1 = a control C was typed. 
196 
197 
198 
199 
00 
4 
08 
04 
05 
09 
08 
09 


8 
i EDTSSCPY_MEM (POS_SIZE, .EDTSSA_CUR_BUF, START_POS); 
or Save the current TBCB address so we can detect a buffer change 
718 " -§_TBCB = .EDTS$A_CUR_BUF; 
ae First check to make sure we can locate the destination Line. 
77 ; 
77 EDTS$$G_RNG_FRSTLN = 1; 
77 GbTSSchy _MEM(POS size: -EDTSS$A_CUR_BUF, EDT$$Z_RNG_ORIGPOS); 
19 , co NOT” EDTSSRNG_ REPOS ( -EDTSSA_ERE_ CURCMD CRANGET))) 
\ 7 ¢ BEGIN 
1 7 EDTSSFMT_MSG (EDTS$_DSTMOVCOP); 
14 784 RETURN; 
12 f 5 END; 
i$ 7 CONTROL_C = EDTSSCHK_CC(); 


TUPIPOPOPOPOPONNPoTofonofnoporoprofpoenony 
ey tee there oN 
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5 DELETE EQL 0) THEN CONTROL_C = EDTSSCHK_CC(); 
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EDTSSEND_CPY (0); | 
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EDTSSMOVEPY_CRD = MOVE and COPY Line-mode comm 1o-8e8= 1382 90:38:33 DISKSVMSMASTER: CEDT.SRCILMOVE.BLI;1 ’ (3) | 
788 |, IF sCONTROL_C THEN RETURN; 
790 i Save the Line number of the destination Line so we are able to reposition 
Led : there when we are ready to move it. 
79 "  MOVELINE (EDTSSA_WK_LN CLIN_NUM], DEST_LINE); 
194 ,, PaTBCB = .EDTSSAICUR_BUF ; 
872 Create a temporary buffer to copy the Lines. 
798 2  €DTS$$A_CUR_BUF = TEMP; 
799 CHSFILC (0; TBCB_SIZE, TEMP); 
800 EDTSSNEW BUF (); 
0801 EDTS$A_COR_BUF = .S_TBCB; 
080 EDTSSCPY_MEM (POS_SIZE, START_POS, .EDT$$A_CUR_BUF); 
Ba07 se EDTSSRD_CURLN (); 
0805 Now position to the front of the source range. 
0807 : 
0808 EDT$$G_RNG_FRSTLN = 1; 
0809 EDTSSCPY_MEM(POS SIZE,.EDTS$A_CUR_BUF corset RNG_ORIGPOS); 
tty IF ( NOT EDTSSRNG_REPOS ( .EDTSSA_EXE_CURCMD RANGE2])) THEN RETURN; 
paig '¢ 
Oatz } Copy the source Lines to a temporary buffer. 
0815 " EDTSSSTART_CPY (TEMP); 
0816 MOVELINE (EDT$S$L_LNO_ZERO, NLINES); 
Bas IF (.DELETE EQL 0) THEN CONTROL_C = EDTSSCHK_CC(); 
9820 WHILE (EDTSS$NXT_LNRNG (.DELETE) AND (.EDTS$SA_WK_LN NEQA EDT$$Z_EOB_LN) AND (.EDT$$G_EXE_QRYQUIT EQL 0)) 
0838 IF EDTSSPROC_QRYQAL (0, 0) 
08 THEN 
0824 4 EGI 
0825 4 ADDLINE (NUMBER_ONE, NLINES); 
0826 4 IF .DELETE THEN-EDT$S$A_CUR BUF CPOS_CHAR_POSJ = 0; 
0827 5 IF ( NOT EDTSSCPY_LN (7DELETE)) 
0828 4 THEN 
th é BEGIN 
0830 EDTSSEND_CPY (0); | 
O83 2 EDTSSFMT_MSG (EDTS_INSMEM); 

RETURN; 
bas 4 END; 
08 4 
0855 4 END 

Hy ELSE 
j IF .DELETE THEN EDTSSRD_NXTLN (); 
0 


r+ 
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42000 EDTSSMOVEPY_CAD - MOVE and COPY Line-mode comm 1 ~300-1382 99:39:33 DLEKSUMGHASTERSCEDT SRCTLMOVE .BLI;1 "a 
: I? i | Now, re-position to the destination range. 
; i$ to §' EDTS$$A_CUR_BUF = .D_TBCB; 
; 8 48 EDT$$RD_CURLN (); 
; 3 43 EDTSSLOC_LN (DEST_LINE); 
: 81 088) ! Switch to the temp buffer we just created. 
: Ht 0858 " EDT$SA_CUR_BUF = TEMP; 
3 Be ogee z EDTSSRB_CURLN (); 
; 56 b828 ! Get the number of times to copy. 
: 288 085 
; 89 0859 If .EDT$$G_EXE_SB1TS<OPB_DUPL> 
: 91 0861 a MOVELINE (EDT$$Z_EXE_SBLK CSW_VAL1], NUM_COPIES) 
: 38 O86 MOVELINE (EDTS$L_LNOO, NUM_COPIES); 
; soe Spee 1+ 
; 396 0866 i Check that DUP is Less than 65536 
: $38 bees 3 
: ¢99 0869 IF ((.NUM_COPIES CLN_HI] NEQ 0) OR (.NUM_COPIES CLN_MD] NEQ 0)) 
: 3g oBrt THEN GIN 
: 302 087 EDTSSFMT_MSG (EDTS_BADRANGE); 
: 30 0873 3 MOVELINE” (EDT$$L_LNO_ZERO, NUM COPIES); 
: 304 0874 4 MOVELINE (EDTSS$L“LNO-ZERO, NLINES) 
; 305 0875 END; 
: 309 pers Ss , 
; 308 pare And finally, do the copy. 
: 310 0880 2 EDTSSSTART_CPY (.D_TBCB); 
: 311 0881 MOVELINE (EDT$S$L_LNO_ZERO, COPY_COUNTER); 
3 1g O88 IF (DELETE EQL 0) TREN CONTROL“C = EDTS$CHK_CC (); 
; 314 0884 WHILE {(CHPLNO (COPY_COUNTER, NUM_COPIES) LSS 0) AND ( NOT .CONTROL_C)) DO 
: 16 0886 EDTS$$TOP_BUF (); 
: 318 tt WHILE (.EDTS$A_WK_LN NEQA EDT$$Z_E0B_LN) DO 
: 19 0889 4 BEGIN 
: 321 bao) IF ( NOT EDTSSCPY_LN (0)) 
; 32 089¢ 4 THEN 
: 32 089 BEGIN 
: 324 sae EDTSSEND_CPY (1); 
; 325 95 EDTSSFMT_MSG (EDTS_INSMEM); 
; 326 896 RETURN; 
3 i 4 ? END; 
: 329 99 4 EDTSSRD_NXTLN (); 
3 0 380 ; END; 
3 31 1 
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VE_ = MOVE and COPY Line-mod 


VCPY_CMD = MOVE and COPY Line-mode comm 18-50-1964 d 99:39:39 D 


commands 


ADDLINE (NUMBER 


a COPY COUNTER); 
IF (.DELETE EQL Ne 
END; 


THEN CONTROL_C = EDTSS$CHK_CC 


EDTSSEND_CPY (1); 
IF (.EDTS$G_EXT_MOD) THEN EDTSSSTOP_WKINGMSG (); 


i “Report the number of Lines moved or copied. 
EDTSSFMT_STRCNT (NLINES, UPLIT (ZSTRING (* Line')), 
IF (.DELETE NEQ 0) 
EDTSSFMT_STR (UPLIT (XZSTRING (° moved')), 6) 
LSE OTSSEMT_STR (UPLIT (ZSTRING (' copied')), 7); 
en” (LINNOEQL (COPY_COUNTER, EDTS$L_LNOO)) 


BEGIN 
EDT$SFMT_STR (UPLIT (ZSTRING (' ')) 
ED TSSFMT= STRCNT (COPY_COUNTER, upuit tee TRING (" 


EDTSSFMT_CRLF (); 
IF ( NOT (LINNOEQL (COPY_COUNTER, NUM_COPIES)) AND ( 


END; ! of rou 


- TITLE 
- IDENT 
-PSECT 
00 00 00 65 6& 69 6C 20 Q0000 P.AAA: .ASCII 
00 00 64 65 76 6F 6p 0 Bente P.AAB: .ASCII 
00 64 65 69 70 6F 6 0 dt P.AAC: .ASCII 
00 00 90 Q Q0018 P.AAD: .ASCII 
00 00 00 65 6D 69 74 20 OOO01C P.AAE: .ASCII 
-EXTRN 
~EXTRN 
-EXTRN 
EXT 
-E 
-E 
-E 
-E 
E 
E 
-E 
-E 
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0); 


5); 


time')), 5); 


.CONTROL_C)) THEN EDT$$G_CC_DONE = 1; 
tine EDTSSMOVCPY_CMD 


EDTSLMOVE EDTSLMOVE - MOVE and COPY Line-mode c 
omman 

\v04-000\ 

EDTSCODE.NOWRT, SHR, PIC,2 

\ Line\<0><0><0> : 

\ i 3 
e P 

\\ oe es ; 

\ time\<0><0><0> : 

EDTS$STOP WK INGMSG 

EDTSSFMT_STRCNT 

ED TSSEMT™ “CRLF, EDTSSFMT_MSG 

EDTSSFAT =SiR. “EDTSSP ROC QRYQAL 

EDTSSNX RNG GOTSSANG RE REPOS 

ED TsscPy WitN : NEOT SEND_ 

EDTSSLOC— ag st 

EDTSSRD CURING EDTS$RO_NXTLN 

EDTSSSTART CPY gorse ior F 

EDTSSCHK Kact. EOT$$G_EXT MOD 

EDTS$L_LA EDTSSL- ENO ZERO 

EDT$$A~CUR_6BUF, EDTSSA_QK_LN 
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EDTSLMOVE EDTSLMOVE = MOVE and COPY Line-mode commands 1b-se Sep-1984 VAX-11 Bliss-32 V4.0-74 p 
meet ED a OVCPY_CMD = MOVE and COPY [ine-node conn 1 ~300n 138i 99: 3¢: 3 STEKSUNGHASTER-CEDT SRCTLMOVE.OLI;1 oem oy 
.EXTRN EDTSSA_EXE_CURCMD | 
EXTRN EDT$$G-EXE-QRYQUIT 
*EXTRN EDTS$G_RNG_PRSTLN 
SEXTRN EDTS$$Z~RNG_ORIGPOS 
*EXTRN EDT$$G_EXE”SBITS | 
EXTRN EDIS$Z-EX SBLK | 
-EXTRN EDTS$$G_CC_BONE, EDT$$Z_E08_LN 
XTRN EDTS$_DSTMOVCOP, EDT$_BADRANGE 
“EXTRN EDTS~INSMEM 
OFFC 00000 ENTRY EDTSSHOVCPY. CMD, Save R2,R3,R4,R5,R6,R7.RB_-; 0676 | 
5B 000000006 9E 9092 MOVAB EDf$$L_LNO_ZERO, R11 : 
3A 000000006 00 9€ 0000 MOVAB EDTS$$A~CUR"BUF, R10 : 
26 oda 06 pois Mad extsta. tuk eur R6 : 0769 
38 AE 66 E ; $047 MOVCS #14, (R6) bis : 
6 DO 0001C MOVL R6, S_TBCB + 0773 
000000006 00 01 p O01F MOVL. #1, EBTS$$G_RNG F : 0778 
000000006 00 66 0 0026 MOVC3 #14, (RO) “fpessi “rig _ORIGPOS + 0779 
50 000000006 00 DO 000 E MOVL EDT$$A_EXE_CURCMD> RO™ + 0780 
04 Ad DD 000 PUSHL  4(RO) : 
000000006 00 1 FB 00 CALLS #1, s cosaee paite F 
09 0 €E8 0003F BLBS RO, 1$ : 
000000006 &F bp 0048 PUSHL #ESTS_pstmovcoP + 0783 
0166 31 0004 BRW 23$ : 
000000006 00 90 FB 00048 1$: CALLS #0, EDTSSCHK_CC + 0787 
59 0 pO 0005 MOVL RO, CONTROL ; 
01 59 : 0005 BLBC  CONTROL_C, 2$ : 0788 
4 00058 RET : 
50 000000006 00 20 90059 2$ MOVL EDTSSA WK_LN + 0793 
SO AE 01 AO 06 28 00060 MOVC3 (RO); DEST_LINE ; 
56 6A DO 00066 MOVL EDTSSA CUR BUF D_TBCB : 0794 
ra 08 9E 90069 mOVAB TEMP DTS SA_CUR_BUF : 0798 
E ¢ D mOVCS #0, (SP), # om TEMP : 
20 00 6 ~ 00 2 9060 (sP), #07 as" 0799 
U P 
000000006 00 99 FB 00074 CALLS #0, EDTSSNEW_BUF + 0800 
6A DO 00078 MOVL  §$ fBCB, EDTSSA. CUR_BUF : 0801 
50 6A 00 d007E MOVL e5TSsA CUR_BUF; R + 0802 
60 38 A f ' eH mMovc3 #14, START-POS Te : 
000000006 0 FB 000 CALLS #0, “EDTSSRB_C + 0803 
000000006 00 1 00 0008D MOVL sR RNG_ ER TLN : 0808 
A p 10094 MOVL 4F BUF; R : 0809 
000000006 00 : 0097 MOVC3 an “£01$$2_RNG_ORIGPOS F 
000000006 pO 009F ROVE jut exe _CURCMD; RO” : 0810 
000000006 0 i FB 8 CALLS i. + §DTSSRNG_REPOS : 
be +3 RET : 
08 aE F B4 3S: PUS re > 0815 
000000006 00 F B7 CALLS EDTSSSTAR : 
58 AE 6 2 VCS #6. EDTSS TENOD ORO, NLINES > 0816 
06 ac D MOVL DELETE, R?™ : 0818 
D4 CLRL OR ; 
: 9 TST.) =OoRR ; 
f B BNEO 38 ; 
dD D INCL R 3 


ws 
coco 


000000006 


000000006 


000000006 


000000006 


000000006 
000000006 
000000006 


4 000006 
000006 


08 
000000006 


000000006 


000000006 


000000006 
4C 


MOVE = MOVE and COPY Line-mod 
VCPY_CMD = MOVE and COPY Line-mode comm 12: 


000000006 98 


: 800000006 


000000006 


58 
5¢ 


oc 


50 
08 


3 000000006 


4C 
GA 


0 000000006 


04 


OD OOD SO COW 9 WU — DO —- DMD "WO & $$ OW 0] F OWS FOOSE ODBONMUVW—- MM OWO 


| 
| 
: 
| 
: 
| 
| 
i 
| 
: 
: 


SOOOOOSOCOOSOCOOOOSOOSOCOCSOSOSOSOSOSOOSSOSOSOSCOSOOSOOOOOOOOOOOoOoO 


SOOOooooooooooooooooooooo 


be 13:38:37 


CALLS 
L 


‘ “11 Bliss-32 V4.0-7 
$SCHK_CC 

TROL_C 

SSNXT_LNRNG 


N, R 
AOR EHS RO” 
G 


EXE _QRYQUIT 


EDTSSPROC, QRYQAL 
kst® _LWORD 
NEXT_WORD 

[ih oe RO 


i 
eD 
10 
he 
i 


Je ggTsscpy. LN 


atts 
22s 


m0: EDTSSRD_NxTLN 

-(SP) 

#1 EDTSSEND CPY 

fac Bg EDISEA, Cu CUR_BUF 

E r pf 

1. EDTSSLOC_LN 

ie enfouss $A eGur BUF 
gbtese Ex oc SBITS, 118 

tots 


LR 
#6, EDTSSL m0, NUM_COPIES 
COPIES 


#0, £ 
D 
T 


BtRO) nh “NOM. Copies 


we COPIES+2 
’ dT$ peer nee 


EO'SSFMT_MSG 
56. EDTSSL. Lo O_ZERO, NUM_ COPIES 
#6, EDTSSL-LNO-ZERO, NLINES 
D face 
ay. EDTSSSTART_CPY 
 EDISSL_ tno” ZERO, COPY_COUNTER 
’ EDTSSCHK_CC 
R CONTROL t 
HGH. , HIGA_2 


x 
SKSVMSMASTER:CEDT. Re LMOVE.BLI;1 


K 4 - 0-74 Page 11 
259: VAX-11 Bliss-32 V4. § “4 Rt 
. ine-mode commands — 16=Sep=1984 00:52: SVMSMASTER: CEDT.SRCILMOVE.BLI; | 
EBLSSOGY —_EBTELROVEny CRUE S°HoSEP End CSe¥°Ttnsomege soun 12-$6p-1 986 ne DISK te De: 
ON ; é 
7 ee ee 3 : 
48 AE 4 1E OO1CA BGEQU $ 3 : 
i }EC 178: MNEGL #7, RO : 
0 9 $F corer Bre (20 : ; 
ye 2 : 
ang 3 eRe 208 ; 
50 01 DO 00107 19$: = MOVL ale : 
4F 8 1DA 208: BGEQ See ROL C. 268 : : 
% H nnre HEE aw, eae retest aa | 
000000006 21$: MOV ED "= ’ 3 : 
000000006 9E OOTES DTS$A_WK_CN, RO ; 
50 000000006 : bY OO1ED cree 238 . + 08901 3 
5 Pe Oot CALLS #1 DISSCPY_LN : ; 
01 DD 00202 CPY : : 
‘ ALLS #1, EDTSSEND_ : 0895 ; 
00 ; iS Bee eet CS HEOTS. INSMEM é ; 
000000006 00 9 ing BF PR 00ST; 238: CALLS. RT. EDTSSPAT MSG : 0893 
seins: ten 04 00218 ah TSSRD_NXTLN 2 ; 
00 FB 00219 248: CALLS #0, EDTSSRD_ : 0888 
000000006 00 oo 09 j BRB i : 0902 
ge 06 tioge 258: IM, Fast.two 3 : 
BA 1 
INCW — NEXT_WORD : 9903 
“8 it a pee BR iss 0906 
O1 Db 0028 268: #1, EDTSSEND_CPY : 0908 ; 
4 Ee Mose? LBC EXT MOD, : : 
900000006 99 ogsoooo0c 8) £8 Batts api ESTSSETOP ucintnse pa ee | 
000000006 00 oo fe 3 iB o73 PUSH 5 : : 
FD94 CF OF 00244 INES : : 
60 08 fe oodep CALLS, #8. EDTSSFAT_STRCNT ‘0915 ; 
000000006 00 a Byte TSTL oR? 
8 13 00254 Qi 288 ; 0917 : 
86 Dd 00 ; Site Bian : 
Foee Ft o05ee BRB. 298 : 0919 : 
09 po OO2SE 28s: PUSH 7 
res FOF é 298: CALLS” a3 EDISSFMT_STR : 0921 ; 
900000006 00 g ff CHL” LOU.T, LOW.2 ; 
aren oh te CNPY HIGH.1, HIGH_2 ; 
000000006 00 04 ae of O37 BEQL 31$ ~ ys + 0924 : 
HT a : 2 
FD70—sCF 44 CALLS ag. EDTSSFMT_STR : 0925 : 
000000006 00 . & SHL : 
Foe? Ck OOF Sua Chee COUNTER : : 
BA FERS) ENS SO SORE arn : , 
000006 : ALLS #0, s 
Bo0000006 00 00 FB 00898 318: CAL 


: Lexenes/CPU-Rin: 10666 
; "Y Used: 239 pages 
: meee ation Complete 


] 
mM 4 
ERTS. Ove EDTSLMOVE = MOVE and COPY Line-mode commands 19*% Sep- 138% 99: 36: 33 VAX-11 Bliss-32 V4.0-74 Page 13. 
v04- EDTSSMOVCPY_CMD = MOVE and COPY Line-mode comm 14-Sep-19 DISKSVMSMASTER: CEDT.SRCJLMOVE .BLI;1 (4) | 
| 
; 366 0935 1 END ! of module EDTSLMOVE 
: 307 0336 7 | 
; 68 9 0 ELUDOM | 
: PSECT SUMMARY 
: Name Bytes Attributes 
: _EDTSCODE 734 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
Pe ee tht eee Symbols -------=- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:CEDT.SRCJEDT.L32;1 377 102 27 40 00:00.2 
3 ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
$ COMMAND QUALIFIERS 
F BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=LIS$:LMOVE/OBJ=OBJ$:LMOVE MSRC$:LMOVE .BLI/UPDATE=(ENHS$:LMOVE) 
; Size: 698 code + 36 data bytes 
; Run Time: 00:28.4 
; Elapsed Time: 00:34.5 


t Lines/CPU Min 1977 
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0136 AH-BT13A-SE. 


